home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group98c.txt / 000101_icon-group-sender _Mon Dec 7 14:39:07 1998.msg < prev    next >
Internet Message Format  |  2000-09-20  |  1KB
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.9.1a/8.9.1) id OAA28761
  4.     for icon-group-addresses; Mon, 7 Dec 1998 14:39:00 -0700 (MST)
  5. Message-Id: <199812072139.OAA28761@baskerville.CS.Arizona.EDU>
  6. From: "Nevin Liber" <nevin@eviloverlord.com>
  7. To: <icon-group@optima.CS.Arizona.EDU>
  8. Cc: "MJE" <evans@gte.net>
  9. Subject: RE: Past Keyword / Coexpr Help
  10. Date: Mon, 7 Dec 1998 10:12:21 -0600
  11. X-Priority: 3 (Normal)
  12. X-MSMail-Priority: Normal
  13. Importance: Normal
  14. X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3155.0
  15. Errors-To: icon-group-errors@optima.CS.Arizona.EDU
  16. Status: RO
  17.  
  18. > The scanning mechanism I want would perhaps be called "past", as in
  19. >
  20. >     numberchars := (&digits ++ 'e' ++ 'E' ++ '+' ++ '-' ++ '.')
  21. >     string ?
  22. >     {
  23. >        tab(past("substring"))
  24. >        result := real(tab(many(numberchars)))
  25. >     }
  26.  
  27. It has find(), and it is fairly trivial to write past() using find.  Here
  28. you go:
  29.  
  30.     procedure past(s1, s2, i1, i2)
  31.  
  32.         suspend find(s1, s2, i1, i2) + *s1
  33.  
  34.     end
  35. __
  36.  Nevin ":-)" Liber  <mailto:nliber@aivia.com>  (312) 855-1000 x199
  37.  
  38. National Systems Corporation
  39. 414 North Orleans Street, Suite 501
  40. Chicago, IL 60610-4490
  41. fax: (312) 222-1605
  42. <http://www.aivia.com/>
  43.  
  44.